home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / Chip_2003-12_cd1.bin / program / ctenari / ShiCola / CodePad37.exe / $INSTDIR / Syntax Definitions / vbscript.def < prev    next >
Encoding:
Text File  |  2003-10-17  |  3.3 KB  |  133 lines
  1. object TPersHolder
  2.   P.Name = 'VBScript'
  3.   P.Extensions.Strings = (
  4.     'Visual Basic Script files (*.vbs)|*.vbs')
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       ID = 0
  9.       FIText = 0
  10.       FIIntNum = 1
  11.       FIFloatNum = 2
  12.       FIHexNum = 3
  13.       FISymbol = 8
  14.       UseSymbols = True
  15.       UseComments = True
  16.       UseSingleLineComments = True
  17.       UseStrings = True
  18.       UseSingleLineStrings = True
  19.       UseNumbers = True
  20.       UseKeywords = True
  21.       BlockDelimiters = <>
  22.       SingleLineCommentDelimiters = <
  23.         item
  24.           FontID = 4
  25.           LeftDelimiter = #39
  26.         end
  27.         item
  28.           FontID = 5
  29.           LeftDelimiter = 'rem'
  30.         end>
  31.       SingleLineStringDelimiters = <
  32.         item
  33.           FontID = 6
  34.           LeftDelimiter = '"'
  35.           RightDelimiter = '"'
  36.         end>
  37.       KeywordSets = <
  38.         item
  39.           FontID = 7
  40.           Name = 'reserved'
  41.           Keywords = 
  42.             'And,As,Attribute,Base,ByVal,Call,Case,Compare,Const,Date,Declare' +
  43.             ',Dim,Do,Each,Else,Elseif,Empty,end,Error,Exit,Explicit,False,For' +
  44.             ',friend,Function,get,If,Is,let,Loop,Mod,Next,Not,Nothing,Null,On' +
  45.             ',Option,Or,Private,property,Public,ReDim,Rem,Select,Set,String,S' +
  46.             'ub,Then,To,True,Type,Wend,While,With,Xor'
  47.         end>
  48.     end>
  49.   P.FontTable = <
  50.     item
  51.       FontID = 0
  52.       GlobalAttrID = 'Whitespace'
  53.       Font.Charset = DEFAULT_CHARSET
  54.       Font.Color = clBlack
  55.       Font.Height = -13
  56.       Font.Name = 'Courier New'
  57.       Font.Style = []
  58.     end
  59.     item
  60.       FontID = 1
  61.       GlobalAttrID = 'Integer'
  62.       Font.Charset = DEFAULT_CHARSET
  63.       Font.Color = clGreen
  64.       Font.Height = -13
  65.       Font.Name = 'Courier New'
  66.       Font.Style = []
  67.     end
  68.     item
  69.       FontID = 2
  70.       GlobalAttrID = 'Float'
  71.       Font.Charset = DEFAULT_CHARSET
  72.       Font.Color = clGreen
  73.       Font.Height = -13
  74.       Font.Name = 'Courier New'
  75.       Font.Style = []
  76.     end
  77.     item
  78.       FontID = 3
  79.       GlobalAttrID = 'Integer'
  80.       Font.Charset = DEFAULT_CHARSET
  81.       Font.Color = clGreen
  82.       Font.Height = -13
  83.       Font.Name = 'Courier New'
  84.       Font.Style = []
  85.     end
  86.     item
  87.       FontID = 4
  88.       GlobalAttrID = 'Comment'
  89.       Font.Charset = DEFAULT_CHARSET
  90.       Font.Color = clGray
  91.       Font.Height = -13
  92.       Font.Name = 'Courier New'
  93.       Font.Style = [fsItalic]
  94.     end
  95.     item
  96.       FontID = 5
  97.       GlobalAttrID = 'Comment'
  98.       Font.Charset = DEFAULT_CHARSET
  99.       Font.Color = clGray
  100.       Font.Height = -13
  101.       Font.Name = 'Courier New'
  102.       Font.Style = [fsItalic]
  103.     end
  104.     item
  105.       FontID = 6
  106.       GlobalAttrID = 'String'
  107.       Font.Charset = DEFAULT_CHARSET
  108.       Font.Color = clMaroon
  109.       Font.Height = -13
  110.       Font.Name = 'Courier New'
  111.       Font.Style = []
  112.     end
  113.     item
  114.       FontID = 7
  115.       GlobalAttrID = 'Reserved words'
  116.       Font.Charset = DEFAULT_CHARSET
  117.       Font.Color = clBlue
  118.       Font.Height = -13
  119.       Font.Name = 'Courier New'
  120.       Font.Style = [fsBold]
  121.     end
  122.     item
  123.       FontID = 8
  124.       GlobalAttrID = 'Delimiters'
  125.       Font.Charset = DEFAULT_CHARSET
  126.       Font.Color = clBlack
  127.       Font.Height = -13
  128.       Font.Name = 'Courier New'
  129.       Font.Style = []
  130.     end>
  131.   P.SyntaxVersion = 3
  132. end
  133.